home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 September / 1989-09.d64 / ml programming (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  721b  |  17 lines
  1. 10 data 160,0,162,34,132,253,134,254,169,1
  2. 20 data 145,253,174,254,31,208,5,206,253,31,48,53
  3. 30 data 206,254,31,162,34,132,251,134,252,24,177,251,248
  4. 40 data 113,251,216,145,251,8,230,251,208,2,230,252
  5. 50 data 165,253,197,251,165,254,229,252,176,13,40,144,208,8
  6. 60 data 230,253,208,2,230,254,152,145,253,40,144,215,176,213
  7. 70 data 177,253,201,16,144,13,177,253,74,74,74,74
  8. 80 data 9,48,32,210,255,177,253,41,15,9,48,32,210,255
  9. 90 data 166,253,208,2,198,254,202,134,253,224,0
  10. 100 data 165,254,201,34,176,219,169,13,76,210,255
  11. 101 print"[147]":poke53280,0:poke53281,0
  12. 110 poke646,15:forj=8192to8314:read x:t=t+x:pokej,x:nextj:ift<>18933thenstop
  13. 120 input "2 raised to power (0=stop)";p:ifp=0thenend
  14. 130 poke 8189,p/256:poke8190,pand255
  15. 140 ti$="000000":sys 8192:print:print"time ="ti/60" secs."
  16. 150 goto120
  17.